home *** CD-ROM | disk | FTP | other *** search
/ European High School Girl / European High School Girl.iso / pc / prg / sofie.dxr / 00090.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  456 b   |  21 lines
  1. on mouseDown
  2.   global framecnt, gcnt, no_cat, max
  3.   set the ink of sprite 9 to 4
  4.   updateStage()
  5.   repeat while the stillDown
  6.     nothing()
  7.   end repeat
  8.   set the ink of sprite 9 to 8
  9.   updateStage()
  10.   set framecnt to framecnt - 1
  11.   if framecnt < 1 then
  12.     go("L08E")
  13.     set framecnt to max
  14.   else
  15.     go(marker(-1))
  16.   end if
  17.   set gcnt to value(getAt(no_cat, framecnt))
  18.   set the movieRate of sprite 20 to 0
  19.   set the movieTime of sprite 20 to gcnt
  20. end
  21.